Public Class _Font
	Inherits TcKs.MSOffice.Common.ChildObjectWrapperBase
	
	Friend Sub New ( ByVal nativeObject As Global.System.Object,  ByVal rootObject As Global.TcKs.MSOffice.Common.RootObjectWrapperBase )
		MyBase.New ( nativeObject, rootObject )
	End Sub 
	
	Public Sub Reset(  )
		MyBase.WrappedObject.Reset(  )
	End Sub 
	
	Public Sub SetAsTemplateDefault(  )
		MyBase.WrappedObject.SetAsTemplateDefault(  )
	End Sub 
	
	Public Sub Grow(  )
		MyBase.WrappedObject.Grow(  )
	End Sub 
	
	Public Sub Shrink(  )
		MyBase.WrappedObject.Shrink(  )
	End Sub 
	
	Public ReadOnly Property Application As Global.TcKs.MSOffice.Word.Application
		Get 
			Dim ret As Global.TcKs.MSOffice.Word.Application =  Me.FindTopRootObject()
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Creator As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Creator
		End Get 
	End Property 
	
	Public ReadOnly Property Parent As Global.System.Object
		Get 
			Return MyBase.WrappedObject.Parent
		End Get 
	End Property 
	
	Public ReadOnly Property Duplicate As Global.TcKs.MSOffice.Word.Font
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Duplicate
			Dim ret As New Global.TcKs.MSOffice.Word.Font( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public Property Bold As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Bold
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Bold = Value 
		End Set 
	End Property 
	
	Public Property Italic As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Italic
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Italic = Value 
		End Set 
	End Property 
	
	Public Property Hidden As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Hidden
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Hidden = Value 
		End Set 
	End Property 
	
	Public Property SmallCaps As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.SmallCaps
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.SmallCaps = Value 
		End Set 
	End Property 
	
	Public Property AllCaps As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.AllCaps
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.AllCaps = Value 
		End Set 
	End Property 
	
	Public Property StrikeThrough As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.StrikeThrough
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.StrikeThrough = Value 
		End Set 
	End Property 
	
	Public Property DoubleStrikeThrough As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.DoubleStrikeThrough
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.DoubleStrikeThrough = Value 
		End Set 
	End Property 
	
	Public Property ColorIndex As Global.TcKs.MSOffice.Word.WdColorIndex
		Get 
			Return MyBase.WrappedObject.ColorIndex
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdColorIndex )
			MyBase.WrappedObject.ColorIndex = Value 
		End Set 
	End Property 
	
	Public Property Subscript As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Subscript
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Subscript = Value 
		End Set 
	End Property 
	
	Public Property Superscript As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Superscript
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Superscript = Value 
		End Set 
	End Property 
	
	Public Property Underline As Global.TcKs.MSOffice.Word.WdUnderline
		Get 
			Return MyBase.WrappedObject.Underline
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdUnderline )
			MyBase.WrappedObject.Underline = Value 
		End Set 
	End Property 
	
	Public Property Size As Global.System.Single
		Get 
			Return MyBase.WrappedObject.Size
		End Get 
		Set ( ByVal Value As Global.System.Single )
			MyBase.WrappedObject.Size = Value 
		End Set 
	End Property 
	
	Public Property Name As Global.System.String
		Get 
			Return MyBase.WrappedObject.Name
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.Name = Value 
		End Set 
	End Property 
	
	Public Property Position As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Position
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Position = Value 
		End Set 
	End Property 
	
	Public Property Spacing As Global.System.Single
		Get 
			Return MyBase.WrappedObject.Spacing
		End Get 
		Set ( ByVal Value As Global.System.Single )
			MyBase.WrappedObject.Spacing = Value 
		End Set 
	End Property 
	
	Public Property Scaling As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Scaling
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Scaling = Value 
		End Set 
	End Property 
	
	Public Property Shadow As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Shadow
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Shadow = Value 
		End Set 
	End Property 
	
	Public Property Outline As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Outline
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Outline = Value 
		End Set 
	End Property 
	
	Public Property Emboss As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Emboss
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Emboss = Value 
		End Set 
	End Property 
	
	Public Property Kerning As Global.System.Single
		Get 
			Return MyBase.WrappedObject.Kerning
		End Get 
		Set ( ByVal Value As Global.System.Single )
			MyBase.WrappedObject.Kerning = Value 
		End Set 
	End Property 
	
	Public Property Engrave As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Engrave
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.Engrave = Value 
		End Set 
	End Property 
	
	Public Property Animation As Global.TcKs.MSOffice.Word.WdAnimation
		Get 
			Return MyBase.WrappedObject.Animation
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdAnimation )
			MyBase.WrappedObject.Animation = Value 
		End Set 
	End Property 
	
	Public Property Borders As Global.TcKs.MSOffice.Word.Borders
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Borders
			Dim ret As New Global.TcKs.MSOffice.Word.Borders( nativeObject, Me.RootObject )
			Return ret
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.Borders )
			Dim nativeObject As Global.System.Object = Nothing 
			If Value IsNot Nothing Then nativeObject = Value .GetWrappedObject()
			MyBase.WrappedObject.Borders = nativeObject
		End Set 
	End Property 
	
	Public ReadOnly Property Shading As Global.TcKs.MSOffice.Word.Shading
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Shading
			Dim ret As New Global.TcKs.MSOffice.Word.Shading( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public Property EmphasisMark As Global.TcKs.MSOffice.Word.WdEmphasisMark
		Get 
			Return MyBase.WrappedObject.EmphasisMark
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdEmphasisMark )
			MyBase.WrappedObject.EmphasisMark = Value 
		End Set 
	End Property 
	
	Public Property DisableCharacterSpaceGrid As Global.System.Boolean
		Get 
			Return MyBase.WrappedObject.DisableCharacterSpaceGrid
		End Get 
		Set ( ByVal Value As Global.System.Boolean )
			MyBase.WrappedObject.DisableCharacterSpaceGrid = Value 
		End Set 
	End Property 
	
	Public Property NameFarEast As Global.System.String
		Get 
			Return MyBase.WrappedObject.NameFarEast
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.NameFarEast = Value 
		End Set 
	End Property 
	
	Public Property NameAscii As Global.System.String
		Get 
			Return MyBase.WrappedObject.NameAscii
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.NameAscii = Value 
		End Set 
	End Property 
	
	Public Property NameOther As Global.System.String
		Get 
			Return MyBase.WrappedObject.NameOther
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.NameOther = Value 
		End Set 
	End Property 
	
	Public Property Color As Global.TcKs.MSOffice.Word.WdColor
		Get 
			Return MyBase.WrappedObject.Color
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdColor )
			MyBase.WrappedObject.Color = Value 
		End Set 
	End Property 
	
	Public Property BoldBi As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.BoldBi
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.BoldBi = Value 
		End Set 
	End Property 
	
	Public Property ItalicBi As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.ItalicBi
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.ItalicBi = Value 
		End Set 
	End Property 
	
	Public Property SizeBi As Global.System.Single
		Get 
			Return MyBase.WrappedObject.SizeBi
		End Get 
		Set ( ByVal Value As Global.System.Single )
			MyBase.WrappedObject.SizeBi = Value 
		End Set 
	End Property 
	
	Public Property NameBi As Global.System.String
		Get 
			Return MyBase.WrappedObject.NameBi
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.NameBi = Value 
		End Set 
	End Property 
	
	Public Property ColorIndexBi As Global.TcKs.MSOffice.Word.WdColorIndex
		Get 
			Return MyBase.WrappedObject.ColorIndexBi
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdColorIndex )
			MyBase.WrappedObject.ColorIndexBi = Value 
		End Set 
	End Property 
	
	Public Property DiacriticColor As Global.TcKs.MSOffice.Word.WdColor
		Get 
			Return MyBase.WrappedObject.DiacriticColor
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdColor )
			MyBase.WrappedObject.DiacriticColor = Value 
		End Set 
	End Property 
	
	Public Property UnderlineColor As Global.TcKs.MSOffice.Word.WdColor
		Get 
			Return MyBase.WrappedObject.UnderlineColor
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdColor )
			MyBase.WrappedObject.UnderlineColor = Value 
		End Set 
	End Property 
	
End Class 
